home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iihding.inc < prev    next >
Encoding:
Text File  |  1998-04-14  |  1.0 KB  |  28 lines
  1. <%
  2. function heading(colwidth,thestring,sortstr)
  3.     dim writeStr, listSort
  4.     listSort = Session("ListSort")
  5.     writeStr = "<TD VALIGN='bottom' WIDTH = " & colwidth & " BORDERCOLOR=" & Session("BGCOLOR") & " BORDERCOLORDARK='#FFFFFF' BORDERCOLORLIGHT='#000000'"
  6.     if listSort and (sortstr <> "") then
  7.     
  8.         if Session("hasDHTML") then
  9.             writeStr = writeStr & " OnCLick=" & quote & "parent.head.sortList('" & sortstr & "');" & quote
  10.             writeStr = writeStr & " style='cursor: hand;'"
  11.             writeStr = writeStr & ">"
  12.             writeStr = writeStr & sFont("","","",True)
  13.             writeStr = writeStr & thestring        
  14.         else
  15.             writeStr = writeStr & ">"
  16.             writeStr = writeStr & sFont("","","",True)                
  17.             writeStr = writeStr &  "<A HREF = " & quote & "javascript:parent.head.sortList('"& sortstr & "');" & quote & ">" & thestring & "</A>"
  18.         end if
  19.     else
  20.         writeStr = writeStr & ">"
  21.         writeStr = writeStr & sFont("","","",True)
  22.         writeStr = writeStr & thestring
  23.     end if
  24.     writeStr = writeStr & "</TD>"
  25.         
  26.     heading = writeStr
  27. end function
  28. %>